home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 06 (1983-02)(Softdisk)(Side B).do / HELLO.WEISS.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  53 lines
  1. 100  PRINT " RECIPE AMOUNT CALCULATOR"
  2. 110  PRINT "APPLE II VERSION"
  3. 120  PRINT "COPYRIGHT (C) 1980 BY HOWARD BERENBON"
  4. 130  PRINT 
  5. 140  PRINT "THIS PROGRAM CALCULATES THE REQUIRED"
  6. 150  PRINT "AMOUNT OF INGREDIENTS FOR THE NUMBER"
  7. 160  PRINT "OF SERVINGS IN A PARTICULAR RECIPE"
  8. 170  PRINT 
  9. 180  PRINT "ENTER THE RECIPE NAME"
  10. 190  INPUT R$
  11. 200  PRINT 
  12. 210  PRINT "ENTER THE # OF INGREDIENTS IN THE RECIPE"
  13. 220  INPUT I
  14. 230  PRINT 
  15. 240  PRINT " ENTER THE NUMBER OF SERVINGS ALLOWED"
  16. 250  INPUT A
  17. 260  PRINT 
  18. 270  PRINT " ENTER THE NUMBER OF SERVINGS REQUIRED"
  19. 280  INPUT B
  20. 290  PRINT 
  21. 300  DIM A$(I)
  22. 310  DIM A(I)
  23. 320  PRINT "ENTER EACH INGREDIENT AMOUNT, AS GIVEN"
  24. 330  PRINT "IN THE RECIPE. THIS AMOUNT MUST BE IN"
  25. 340  PRINT "A DECIMAL FORM (1 1/2 =1.5).INSERT A"
  26. 350  PRINT "COMMA,THEN ENTER THE 'LABEL' OF THE "
  27. 360  PRINT "INGREDIENT"
  28. 370  PRINT "EXAMPLE"
  29. 380  PRINT "1.5,TBL BUTTER"
  30. 390  PRINT 
  31. 400  FOR X = 1 TO I
  32. 410  PRINT "INGREDIENT # ";X
  33. 420  INPUT A(X),A$(X)
  34. 430  NEXT X
  35. 440  PRINT 
  36. 441  PRINT 
  37. 442  PRINT "OUTPUT TO PRINTER (Y/N)?"
  38. 443  GET A$
  39. 444  IF A$ = "N"  THEN 490
  40. 445  IF A$ = "Y"  THEN  PR# 1
  41. 450  REM  CALCULATE AND LIST INGREDIENT AMOUNTS
  42. 460  PRINT "RECIPE NAME: ";R$
  43. 470  PRINT "SERVINGS:  "B
  44. 480  PRINT 
  45. 490  PRINT "ING'NT #   AMOUNT    LABEL"
  46. 500 C = B/A
  47. 510  FOR X = 1 TO I
  48. 520  PRINT X; TAB( 13);C *A(X); TAB( 22);A$(X)
  49. 530  FOR T = 1 TO 1000
  50. 540  NEXT T
  51. 550  NEXT X
  52. 555  PR# 0
  53. 560  END